<script>on mouseUppush cardget the short name of this cdgo card "fx"repeat with i=5 to 20if it is in name of cd btn i thensend mouseUp to cd btn iexit repeatend ifend repeatend mouseUp</script>
</part>
<part>
<id>6</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>183</left>
<top>286</top>
<right>342</right>
<bottom>304</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>UT</name>
<script></script>
</part>
<part>
<id>7</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>36</left>
<top>286</top>
<right>184</right>
<bottom>304</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>ST</name>
<script></script>
</part>
<part>
<id>10</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>174</left>
<top>79</top>
<right>391</right>
<bottom>145</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Pos</name>
<script></script>
</part>
<part>
<id>13</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>174</left>
<top>144</top>
<right>396</right>
<bottom>178</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>rise</name>
<script></script>
</part>
<part>
<id>14</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>41</left>
<top>81</top>
<right>170</right>
<bottom>107</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Helvetica</font>
<textSize>18</textSize>
<textStyle>plain</textStyle>
<textHeight>24</textHeight>
<name>Planet</name>
<script></script>
</part>
<part>
<id>27</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>231</left>
<top>306</top>
<right>276</right>
<bottom>341</bottom>
</rect>
<style>shadow</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>5472</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>New Button</name>
<script>on mouseUpgo first cardend mouseUp</script>
</part>
<part>
<id>28</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>39</left>
<top>25</top>
<right>217</right>
<bottom>44</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>bold</textStyle>
<textHeight>16</textHeight>
<name>Date</name>
<script></script>
</part>
<part>
<id>31</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>266</left>
<top>25</top>
<right>469</right>
<bottom>44</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>bold</textStyle>
<textHeight>16</textHeight>
<name>JD</name>
<script></script>
</part>
<part>
<id>36</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>475</left>
<top>50</top>
<right>508</right>
<bottom>80</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>2478</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Help</name>
<script>on mouseUppush cardgo first card of bkgnd "Info"end mouseUp</script>
</part>
<part>
<id>39</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>216</left>
<top>25</top>
<right>266</right>
<bottom>44</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>bold</textStyle>
<textHeight>16</textHeight>
<name>Pct</name>
<script></script>
</part>
<part>
<id>40</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>432</left>
<top>120</top>
<right>471</right>
<bottom>157</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>26516</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Conj</name>
<script>on mouseUppush cdgo cd conjunctend mouseUp</script>
</part>
<part>
<id>41</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>432</left>
<top>156</top>
<right>471</right>
<bottom>191</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>28557</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>topo</name>
<script>on mouseUppush cd -- 1.92go positionend mouseUp</script>
</part>
<part>
<id>42</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>432</left>
<top>190</top>
<right>471</right>
<bottom>226</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>4450</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>meteor</name>
<script>on mouseUpgo cd meteormcalcend mouseUp</script>
</part>
<part>
<id>43</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>432</left>
<top>225</top>
<right>470</right>
<bottom>259</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>17699</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>ad-aa</name>
<script>on mouseUpgo to card id 11225end mouseUp</script>
</part>
<part>
<id>45</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>432</left>
<top>258</top>
<right>470</right>
<bottom>295</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>112</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Orbits</name>
<script>on mouseUpgo cd orbitsend mouseUp</script>
<script>on openCardglobal force,total,dec,dra,decra,h,m,mode,tput pi/180 into facput line 1 of cd fld "Coords" of cd origin into latput line 2 of cd fld "Coords" of cd origin into lonset numberformat to "0.000"put "Julian Date = "& JD() into fld "JD"set numberFormat to "0.############"put line 2 of fld UT into oldUTUTST-- put "Julian Date = 2448606.240" into fld JDif the short name of this cd is "Moon" thenput nDate(1,12,0) &&"(JT)" into fld "date"if total=1 thensend selectx to cd Moonsend mouseUp to cd btn "Today"end ifelse if the short name of this cd is "Jupiter" thensend selectx to cd Jupiterput nDate(1,12,0) &&"(JT)" into fld "date"set the textfont of cd fld cl to "N Helvetica Narrow"calc forcephasesend mouseUp to cd btn "Today"exit opencardelseput nDate(0,0,0) into fld "date"end ifif the shiftKey is up thenget the number of this cd-- change 11 to 13 for comet cardif it>1 and it<(number of cds of this bg)+1 thencalc forceif it>3 and it<11 then phaseend ifend ifif short name of this cd is "Moon" and (the date ≠ line 6 of fld rise ¬or force=1) then-- moon calcs from A.A. for rise and setput trunc(the seconds/86400)+(line 4 of fld "Rise")/24 + 2416480.5 ¬+ DSTcheck()/24 into JDrput (JDr-2451545)/36525 into tput 100.46061837+t*(36000.770053608+t*(.000387933+(t/38710000))) ¬into gst-- do for risingmoonpos falseget -tand(lat)*tand(dec)put atan(sqrt(1-it*it)/it) into angput dec>0 into d1put lat>0 into d2if d1 is d2 thenadd pi to angend ifput (((dra-lon-gst)/15) mod 24)/1.002738 - DSTCheck() into argput ang/fac/15/1.002738 into deltaget (arg-delta+24) mod 24put arg into line 3 of fld riseput it into line 4 of fld risehm false,itampmput short name of this cd && "Rises at "& h &":" & m && mode ¬into line 1 of fld riseput trunc(the seconds/86400)+(line 5 of fld "Rise")/24 + 2416480.5 ¬+ DSTcheck()/24 into JDsput (JDs-2451545)/36525 into tput 100.46061837+t*(36000.770053608+t*(.000387933+(t/38710000))) ¬into gst-- do for settingmoonpos falseget -sind(lat)*sind(dec)/cosd(lat)/cosd(dec)put atan(sqrt(1-it*it)/it) into angput dec>0 into d1put lat>0 into d2if d1 is d2 thenadd pi to angend ifput (((dra-lon-gst)/15) mod 24)/1.002738 - DSTCheck() into argput ang/fac/15/1.002738 into deltaget (arg+delta) mod 24put it into line 5 of fld risehm false,itampmput short name of this cd && "Sets at "& h &":" & m && mode into ¬line 2 of fld riseend ifpass opencardend openCardon phaseset numberFormat to "0.############"put (last word of fld JD-2451545)/36525 into Tput 23.439291-.013004*T into eput line 5 of fld Pos of cd Sun into sraput line 6 of fld Pos of cd Sun into sdecput line 5 of fld Pos into praput line 6 of fld Pos into pdecput line 2 of fld Dmag of cd Sun into srput line 2 of fld Dmag into pr--convert planet from equ to eclput cosd(pdec)*cosd(pra) into pcbclput cosd(e)*cosd(pdec)*sind(pra)+sind(e)*sind(pdec) into pcbslput cosd(e)*sind(pdec)-sind(e)*cosd(pdec)*sind(pra) into psbput atanq(pcbcl,pcbsl) into plput pcbsl/sin(pl) into pcbput atanq(pcb,psb) into pb-- planet l&&bput cosd(sdec)*cosd(sra) into scbclput cosd(e)*cosd(sdec)*sind(sra)+sind(e)*sind(sdec) into scbslput atanq(scbcl,scbsl) into sl-- sun lput sr*cos(sl+pi)+pr*cos(pb)*cos(pl) into rcbclput sr*sin(sl+pi)+pr*cos(pb)*sin(pl) into rcbslput atanq(rcbcl,rcbsl) into lput rcbsl/sin(l) into rcbput pr*sin(pb) into rsbput atanq(rcb,rsb) into bput rsb/sin(b) into rput pr*pr+r*r-sr*sr into yput 2*pr*r into xput 180/pi*atanq(y,sqrt(x*x-y*y)) into iput .5*(1+cosd(i)) into phaseput line 4 of fld dmag into mdataset numberFormat to "0.0###########"if "Saturn" is in name of this cd thenput 40.66+4.695*T into a0put 83.52+.403*T into d0put -sind(d0)*sin(pdec)-cosd(d0)*cosd(pdec)*cosd(a0-pra) into sdput (item 1 of mdata)-2.6*abs(sd)+1.25*sd*sd+.044*i into m0else-- modified magnitude calcs for Mercury, Venus and Marsput (item 1 of mdata) + (item 2 of mdata)*i+ ¬(item 3 of mdata)*i^(item 4 of mdata)+¬(item 5 of mdata)*i^(item 6 of mdata) into m0end ifput rnd10(m0+5*ln(r*pr)/ln(10)) into magnif char 1 to 2 of magn is "-." then put zero before char 2 of magnget "Magnitude ="&&magn&&" "if phase <0.9949 thenput trunc(phase*100+.5) into numif ".0" is in num thendelete last char of numdelete last char of numend ifput "("&num&"% Sunlit)" after itend ifput it into fld Magend phaseon astpromptget filename("TEXT")if it is empty then exit astpromptput it into line 2 of fld planetrepeat until ":" is not in itdelete char 1 of itend repeatrepeat until "." is not in itdelete last char of itend repeatrepeat until " " is not in itdelete first char of itend repeatrepeat with i=2 to number of chars of itif chartonum(char i of it)<92 then put ¬numtochar(chartonum(char i of it)+32) into char i of itend repeatAsk "Enter object name..." with itput it into line 1 of fld planetcalc 1end astprompt-- three scripts below are for adding new year stuffon err arg,tput fld arg into dataput line 1 of data into indrepeat with i=1 to number of words of indget word 1 of line (word i of ind) of dataput it * 2 * sqrt(word 1 of line (word i of ind) of data) * t^(i-1) * .002062648 into ¬item i of erend repeatput erend err</script>